home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / scan < prev    next >
Text File  |  2002-09-18  |  516b  |  24 lines
  1. #
  2. # Just a quick and dirty /scan routine. It's about as fast as I could
  3. # make it. It could be fast if the nicks weren't aligned but that'd be
  4. # ugly.
  5. #
  6. # - whitefang (thall@magenet.com)
  7. #
  8.  
  9. alias scan (chan)
  10. {
  11.         @ chan = ischannel($chan) ? chan : C
  12.         unless (chan)
  13.         {
  14.                 return
  15.         }
  16.         xecho -b Users on $chan:
  17.         fe ($strip(?. $channel($chan))) n1 n2 n3 n4 n5 n6 
  18.         {
  19.                 echo $[11]n1 $[11]n2 $[11]n3 $[11]n4 $[11]n5 $[11]n6
  20.         }
  21. }
  22.  
  23. # tjbh/2000
  24.